home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / 3D / Vue / VUE.MS_ / VUE.MS
Text File  |  1997-01-11  |  6KB  |  212 lines
  1.  
  2. '$DEFINE DEBUG  ''Define for script development/debugging
  3.  
  4. '$INCLUDE 'setupapi.inc'
  5. '$INCLUDE 'msdetect.inc'
  6.  
  7. ''Dialog ID's
  8. CONST WELCOME       = 100
  9. CONST BRIDE         = 150
  10. CONST ASKQUIT       = 200
  11. CONST DESTPATH      = 300
  12. CONST EXITFAILURE   = 400
  13. CONST EXITQUIT      = 600
  14. CONST EXITSUCCESS   = 700
  15. CONST OPTIONS       = 800
  16. CONST APPHELP       = 900
  17. CONST BADPATH       = 6400
  18.  
  19. ''Bitmap ID
  20. CONST LOGO = 1
  21.  
  22. GLOBAL DEST$        ''Default destination directory.
  23. GLOBAL OPTCUR$      ''Option selection from option dialog.
  24.  
  25. DECLARE SUB Install
  26. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  27.  
  28.  
  29. INIT:
  30.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  31.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  32.  
  33.     SetBitmap CUIDLL$, LOGO
  34.     SetTitle "Vue d'Esprit - Installation"
  35.  
  36.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  37.     IF szInf$ = "" THEN
  38.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  39.     END IF
  40.     ReadInfFile szInf$
  41.  
  42.     OPTCUR$ = "1"
  43.     DEST$ = "C:\VUE"
  44.  
  45. '$IFDEF DEBUG
  46.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  47.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  48.     IF IsDriveValid(WinDrive$) = 0 THEN
  49.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  50.         GOTO QUIT
  51.     END IF
  52. '$ENDIF ''DEBUG
  53.  
  54. WELCOME:
  55.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  56.     IF sz$ = "CONTINUE" THEN
  57.         UIPop 1
  58.     ELSE
  59.         GOSUB ASKQUIT
  60.         GOTO WELCOME
  61.     END IF
  62.  
  63. BRIDE:
  64.     sz$ = UIStartDlg(CUIDLL$, BRIDE, "FInfoDlgProc", APPHELP, HELPPROC$)
  65.     IF sz$ = "CONTINUE" THEN
  66.         UIPop 1
  67.     ELSE
  68.         GOSUB ASKQUIT
  69.         GOTO BRIDE
  70.     END IF
  71.  
  72. GETPATH:
  73.     SetSymbolValue "EditTextIn", DEST$
  74.     SetSymbolValue "EditFocus", "END"
  75. GETPATHL1:
  76.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  77.     DEST$ = GetSymbolValue("EditTextOut")
  78.  
  79.     IF sz$ = "CONTINUE" THEN
  80.         IF IsDirWritable(DEST$) = 0 THEN
  81.             GOSUB BADPATH
  82.             GOTO GETPATHL1
  83.         END IF
  84.         UIPop 1
  85.     ELSEIF sz$ = "REACTIVATE" THEN
  86.         GOTO GETPATHL1
  87.     ELSEIF sz$ = "BACK" THEN
  88.         UIPop 1
  89.         GOTO WELCOME
  90.     ELSE
  91.         GOSUB ASKQUIT
  92.         GOTO GETPATH
  93.     END IF
  94.  
  95.  
  96.     Install
  97.  
  98.  
  99. QUIT:
  100.     ON ERROR GOTO ERRQUIT
  101.  
  102.     IF ERR = 0 THEN
  103.         dlg% = EXITSUCCESS
  104.     ELSEIF ERR = STFQUIT THEN
  105.         dlg% = EXITQUIT
  106.     ELSE
  107.         dlg% = EXITFAILURE
  108.     END IF
  109. QUITL1:
  110.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  111.     IF sz$ = "REACTIVATE" THEN
  112.         GOTO QUITL1
  113.     END IF
  114.     UIPop 1
  115.  
  116.     END
  117.  
  118. ERRQUIT:
  119.     i% = DoMsgBox("Install files corrupt !", "Vue d'Esprit - Installation", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  120. '    i% = DoMsgBox("Fichiers d'installation corrompus !", "Vue d'Esprit - Installation", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  121.     END
  122.  
  123.  
  124.  
  125. BADPATH:
  126.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  127.     IF sz$ = "REACTIVATE" THEN
  128.         GOTO BADPATH
  129.     END IF
  130.     UIPop 1
  131.     RETURN
  132.  
  133.  
  134.  
  135. ASKQUIT:
  136.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  137.  
  138.     IF sz$ = "EXIT" THEN
  139.         UIPopAll
  140.         ERROR STFQUIT
  141.     ELSEIF sz$ = "REACTIVATE" THEN
  142.         GOTO ASKQUIT
  143.     ELSE
  144.         UIPop 1
  145.     END IF
  146.     RETURN
  147.  
  148.  
  149.  
  150. '**
  151. '** Purpose:
  152. '**     Builds the copy list and performs all installation operations.
  153. '** Arguments:
  154. '**     none.
  155. '** Returns:
  156. '**     none.
  157. '*************************************************************************
  158. SUB Install STATIC
  159.  
  160.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  161.     CreateDir DEST$, cmoNone
  162.  
  163.     OpenLogFile MakePath(GetWindowsDir, "VUE.CFG"), 0 'CrΘation de vue.cfg
  164.     WriteToLogFile DEST$
  165.     CloseLogFile
  166.  
  167.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  168.     WriteToLogFile ""
  169.     WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  170.     WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  171.     WriteToLogFile ""
  172.     WriteToLogFile "May have had to create the directory: " + DEST$
  173.     WriteToLogFile ""
  174.  
  175.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  176.     CopyFilesInCopyList
  177.  
  178.     CreateProgmanGroup "Vue d'Esprit", "", cmoNone
  179.     ShowProgmanGroup  "Vue d'Esprit", 1, cmoNone
  180.     CreateProgmanItem "Vue d'Esprit", "Vue d'Esprit v1.2 - Demo version", MakePath(DEST$,"vue.exe"), "", cmoOverwrite
  181. '    CreateProgmanItem "Vue d'Esprit", "Vue d'Esprit v1.2 - Version d'Θvaluation", MakePath(DEST$,"vue.exe"), "", cmoOverwrite
  182.     CreateProgmanItem "Vue d'Esprit", "Vue d'Esprit v1.2 - Help", "winhelp.exe "+MakePath(DEST$,"vue.hlp"), "", cmoOverwrite
  183.  
  184.     CloseLogFile
  185.  
  186. END SUB
  187.  
  188.  
  189.  
  190. '**
  191. '** Purpose:
  192. '**     Appends a file name to the end of a directory path,
  193. '**     inserting a backslash character as needed.
  194. '** Arguments:
  195. '**     szDir$  - full directory path (with optional ending "\")
  196. '**     szFile$ - filename to append to directory
  197. '** Returns:
  198. '**     Resulting fully qualified path name.
  199. '*************************************************************************
  200. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  201.     IF szDir$ = "" THEN
  202.         MakePath = szFile$
  203.     ELSEIF szFile$ = "" THEN
  204.         MakePath = szDir$
  205.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  206.         MakePath = szDir$ + szFile$
  207.     ELSE
  208.         MakePath = szDir$ + "\" + szFile$
  209.     END IF
  210. END FUNCTION
  211.  
  212.